#!/usr/bin/perl
# diskswap.cgi in diskman

require './diskman-lib.pl';

&ReadParse();
$disk = $in{'swapdisk'};
&header("disk swap", "");
print "<form name=recoveryform action=index.cgi method=post>\n";

print "<p>$disk</p>\n";
print "<input type=submit name=back value=OK class=button1>\n";
print "</form>\n";
&footer("/", $text{'index'});





